home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / background_2612.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  344 lines

  1. -- background: 2612 from stack: in.0
  2. -- bmap block id: 2821
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: XCMDs
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9. end opencard
  10.  
  11.  
  12.  
  13. -- part 2 (field)
  14. -- low flags: 01
  15. -- high flags: 0000
  16. -- rect: left=55 top=22 right=56 bottom=338
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 2
  21. -- text size: 24
  22. -- style flags: 0
  23. -- line height: 32
  24. -- part name: Name
  25.  
  26.  
  27. -- part 3 (field)
  28. -- low flags: 00
  29. -- high flags: 4007
  30. -- rect: left=54 top=69 right=299 bottom=309
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 9
  36. -- style flags: 0
  37. -- line height: 12
  38. -- part name: 
  39. ----- HyperTalk script -----
  40. on mousewithin
  41.   if the OptionKey is down then
  42.     if the locktext of the target is true then
  43.       put true into DidUnlock
  44.       set locktext of target to false
  45.     else
  46.       put false into DidUnlock
  47.     end if
  48.     set the cursor to 2
  49.     repeat while (the OptionKey is down) and (item 1 of the rect of target <= item 1 of the mouseLoc) and (item 1 of the mouseLoc <= item 3 of the rect of target) and (item 2 of the rect of target <= item 2 of the mouseLoc) and (item 2 of the mouseLoc <= item 4 of the rect of target)
  50.       if the Mouse is down then
  51.         click at the MouseLoc
  52.         click at the ClickLoc
  53.         if the selection <> empty then
  54.           visual checkerboard to gray
  55.           visual checkerboard
  56.           go card selection
  57.         end if
  58.       end if
  59.     end repeat
  60.     if DidUnlock then
  61.       set the locktext of the target to true
  62.     end if
  63.   end if
  64. end mousewithin
  65.  
  66.  
  67.  
  68. -- part 6 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=228 top=306 right=331 bottom=255
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 1014 / 1014
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Prev
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   if the optionkey is down then
  83.     pass mouseup
  84.   end if
  85.  
  86.   visual wipe right very fast
  87.   go to previous card
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 7 (button)
  93. -- low flags: 00
  94. -- high flags: 2000
  95. -- rect: left=280 top=306 right=331 bottom=307
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 1013 / 1013
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Next
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   if the optionkey is down then
  107.     pass mouseup
  108.   end if
  109.  
  110.   visual wipe left very fast
  111.   go to next card
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 9 (button)
  117. -- low flags: 00
  118. -- high flags: 2000
  119. -- rect: left=456 top=301 right=329 bottom=493
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 11645 / 11645
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Return
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   if the optionkey is down then
  131.     pass mouseup
  132.   end if
  133.  
  134.   visual effect iris close
  135.   go first card
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 10 (field)
  141. -- low flags: 00
  142. -- high flags: 0007
  143. -- rect: left=311 top=69 right=299 bottom=493
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 3
  148. -- text size: 9
  149. -- style flags: 0
  150. -- line height: 12
  151. -- part name: 
  152.  
  153.  
  154. -- part 12 (button)
  155. -- low flags: 00
  156. -- high flags: A003
  157. -- rect: left=332 top=306 right=326 bottom=448
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Resource Mover
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   if the optionkey is down then
  169.     pass mouseup
  170.   end if
  171.  
  172.   ResCopy
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 13 (field)
  178. -- low flags: 01
  179. -- high flags: 0000
  180. -- rect: left=255 top=311 right=327 bottom=282
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 3
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: PageNumber
  189.  
  190.  
  191. -- part 22 (button)
  192. -- low flags: 00
  193. -- high flags: 2004
  194. -- rect: left=2 top=74 right=117 bottom=49
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 14767 / 14767
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: About...
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   if the optionkey is down then
  206.     pass mouseup
  207.   end if
  208.  
  209.   visual iris open to gray
  210.   visual iris close to black
  211.   visual iris open to gray
  212.   visual iris close
  213.   go background information
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 23 (button)
  219. -- low flags: 00
  220. -- high flags: 2004
  221. -- rect: left=2 top=119 right=162 bottom=49
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 29114 / 29114
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Back
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   if the optionkey is down then
  233.     pass mouseup
  234.   end if
  235.  
  236.   visual barn door close to black
  237.   visual barn door open
  238.   go back
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 24 (button)
  244. -- low flags: 00
  245. -- high flags: 2004
  246. -- rect: left=2 top=164 right=207 bottom=49
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 1011 / 1011
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: Home
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   if the optionkey is down then
  258.     pass mouseup
  259.   end if
  260.  
  261.   go home
  262. end mouseUp
  263.  
  264.  
  265.  
  266. -- part 25 (button)
  267. -- low flags: 00
  268. -- high flags: 2004
  269. -- rect: left=2 top=209 right=252 bottom=49
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 1000 / 1000
  272. -- text alignment: 1
  273. -- font id: 0
  274. -- text size: 12
  275. -- style flags: 0
  276. -- line height: 16
  277. -- part name: Open Stack
  278. ----- HyperTalk script -----
  279. on mouseUp
  280.   if the optionkey is down then
  281.     pass mouseup
  282.   end if
  283.  
  284.   domenu "open stack..."
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 26 (button)
  290. -- low flags: 00
  291. -- high flags: 2004
  292. -- rect: left=2 top=254 right=297 bottom=49
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 17343 / 17343
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: Launch Application
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   if the optionkey is down then
  304.     pass mouseup
  305.   end if
  306.  
  307.   visual venetian blinds to gray
  308.   visual venetian blinds to black
  309.   visual venetian blinds to gray
  310.   visual venetian blinds
  311.  
  312.   go to background "Mini Hyperstation"
  313. end mouseUp
  314.  
  315.  
  316.  
  317. -- part 27 (button)
  318. -- low flags: 00
  319. -- high flags: 2004
  320. -- rect: left=2 top=299 right=342 bottom=49
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 21786 / 21786
  323. -- text alignment: 1
  324. -- font id: 0
  325. -- text size: 12
  326. -- style flags: 0
  327. -- line height: 16
  328. -- part name: Menus Off
  329. ----- HyperTalk script -----
  330. on mouseUp
  331.   if the optionkey is down then
  332.     pass mouseup
  333.   end if
  334.  
  335.   If the short name of the target is "Menus On" then
  336.     set the name of the target to "Menus Off"
  337.     show menubar
  338.   else
  339.     set the name of the target to "Menus On"
  340.     hide menubar
  341.   end if
  342. end mouseUp
  343.  
  344.